home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #26 (Nov 87) / Pascal Code Tester / TestGlobals < prev    next >
Text File  |  1987-10-26  |  867b  |  45 lines
  1. UNIT TestGlobals;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         ROM85;
  7.  
  8.     CONST
  9.         AppleMenu = 256;        (* Resourse ID's & Menu Item #'s *)
  10.         FileMenu = 257;
  11.         TestItem = 1;
  12.         Quititem = 3;
  13.  
  14.         AboutId = 260;
  15.         NoteId = 261;
  16.         CautionId = 262;
  17.         StopId = 263;
  18.  
  19.         DlogH = 100;            (* for SF Get & Put *)
  20.         DlogV = 85;
  21.  
  22.         UntitledId = 300;        (* Strings - For Window if needed *)
  23.         Saveit = 301;
  24.         UndoIt = 302;
  25.  
  26.     VAR
  27.         Finished : Boolean;        (* used to terminate the program *)
  28.         Watch : Cursor;            (* Cursors *)
  29.         AppleMHandle, FileMHandle : MenuHandle;
  30.         ResStr : Str255;            (* For Converting the Resourse String *)
  31.         ResStrHdl : StringHandle;
  32.         Machine : integer;
  33.  
  34.         DragArea : Rect;                  (* rectangles *)
  35.         GrowArea : Rect;
  36.         Screen : Rect;
  37.         ViewArea, DestArea : Rect;
  38.         WindowArea : Rect;
  39.  
  40.         JeffsText : TEHandle;
  41.         JeffsWindow : WindowPtr;   (* pointer to Program window *)
  42.  
  43. IMPLEMENTATION
  44.  
  45. END.